(comint-dynamic-complete-as-filename): Quote directory name when

reinserting it.

diff --git a/lisp/comint.el b/lisp/comint.el
index 6231a20b65a9e339557a7c28f43b440f0afe47f0..c639053c1cac917cf011088adc8cbccd20d5cb59 100644 (file)
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -2848,7 +2848,7 @@ See `comint-dynamic-complete-filename'.  Returns t if successful."
             ;; may have a different case than what's in the prompt,
             ;; if read-file-name-completion-ignore-case is non-nil,
             (delete-region filename-beg filename-end)
-            (if filedir (insert filedir))
+            (if filedir (insert (comint-quote-filename filedir)))
             (insert (comint-quote-filename (directory-file-name completion)))
             (cond ((symbolp (file-name-completion completion directory))
                    ;; We inserted a unique completion.